home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / windows / tintools.zip / TMVIEWER.CLW < prev    next >
Text File  |  1996-06-14  |  17KB  |  454 lines
  1.  
  2. ! ==========================================================================
  3. ! V1.50 5/01/1996
  4. ! ---------------------------------------------------------------------------
  5. ! (c) 1996, Reichenberger Development Incorporated - All Rights Reserved, World Wide
  6. ! (c) 1996, Tin Man Software Corporation - All Rights Reserved World Wide
  7. ! ---------------------------------------------------------------------------
  8. TIN_REPORTVIEWER  FUNCTION(PrintPreviewQueue,Titlein)
  9. LeftPageNumber       SHORT,AUTO
  10. RightPageNumber      SHORT,AUTO
  11. Preview:OpMode       BYTE,AUTO
  12. Preview:Op:Normal    EQUATE(0)
  13. Preview:Op:Zoom      EQUATE(1)
  14. Preview:Op:Facing    EQUATE(2)
  15. Preview:Zoomed       BYTE,AUTO
  16. Preview:Facing       BYTE,AUTO
  17. Preview:Pages        BYTE,AUTO
  18. Preview:Jump         LONG,AUTO
  19.  
  20. !--------------------TINMAN SOFTWARE CORP.----------------------------------
  21. PageMarked           LONG(0)
  22. OptionPrint          BYTE(1)
  23. PageFrom             LONG(1)
  24. PageTo               LONG(1)
  25. PREVIEWCOPIES        LONG(1)
  26. PREVIEWPRINTER       STRING(50)
  27. PREVIEWCOLLATE       BYTE
  28. PREVIEWSAVEFILE      BYTE
  29. PREVIEWFILENAME      STRING(100)
  30. LOCALRESPONSE        LONG
  31. PREV:MetaFileName    string(100),Static
  32. PREV:Metafile   FILE,DRIVER('dos'),NAME(PREV:MetaFileName)
  33. Record            RECORD,PRE()
  34.                   END
  35.                 END
  36.  
  37. MarkQueue       QUEUE,PRE(MQ)
  38. Mark              BYTE
  39.                 END
  40. !--------------------TINMAN SOFTWARE CORP.----------------------------------
  41.  
  42. PreviewWindow WINDOW('Print Preview'),AT(,,308,231),CENTER,STATUS(150,25,50,50,-1),SYSTEM,GRAY,RESIZE
  43.        TOOLBAR,AT(0,0,307,17),NOMERGE
  44.          BUTTON,AT(3,1,15,15),MSG('Cancel Report'),TIP('Cancel Report'),USE(?PreviewCancel),ICON(ICON:Hand)
  45.          BUTTON,AT(22,1,15,15),MSG('Print The Report'),TIP('Print The Report'),USE(?PreviewPrint),ICON(ICON:Print)
  46.          BUTTON,AT(41,1,15,15),MSG('Printer Setup'),TIP('Printer Setup'),USE(?Button8),ICON(ICON:Print), |
  47.              STD(STD:PrintSetup)
  48.          BUTTON,AT(62,1,15,15),MSG('First Page'),TIP('First Page'),KEY(HomeKey),USE(?PreviewTop),ICON(ICON:VCRtop)
  49.          BUTTON,AT(80,1,15,15),MSG('Previous Page'),TIP('Previous Page'),KEY(PgUpKey),USE(?PreviewPreviousPage), |
  50.              ICON(ICON:VCRrewind)
  51.          BUTTON,AT(98,1,15,15),MSG('Next Page'),TIP('Next Page'),KEY(PgDnKey),USE(?PreviewNextPage),ICON(ICON:VCRfastforward)
  52.          BUTTON,AT(116,1,15,15),MSG('Last Page'),TIP('Last Page'),KEY(EndKey),USE(?PreviewBottom),ICON(ICON:VCRbottom)
  53.          BUTTON,AT(134,1,15,15),MSG('Go To Page ???'),TIP('Go To Page ???'),USE(?PreviewJump),ICON(ICON:VCRlocate)
  54.          BUTTON,AT(152,1,15,15),MSG('Delete Page From Report'),TIP('Delete Page From Report'),USE(?PreviewDelete), |
  55.              ICON(ICON:Cut)
  56.          BUTTON('Mark'),AT(172,1,30,15),FONT('Arial',9,,FONT:bold),MSG('Mark Page For Printing'),TIP('Mark Page For Printing'), |
  57.              USE(?Mark)
  58.          BUTTON('+'),AT(209,1,15,15),FONT(,,,FONT:bold),MSG('Zoom In On Page'),TIP('Zoom In / Zoom Out'), |
  59.              USE(?PreviewZoom)
  60.          BUTTON('Facing'),AT(233,1,,15),FONT('Arial',10,,FONT:bold),MSG('View the report two pages at a time'), |
  61.              TIP('Number Of Pages To View'),USE(?PreviewFacing)
  62.        END
  63.        BOX,AT(9,23,136,176),USE(?Page1Frame)
  64.        IMAGE,AT(9,23,136,176),USE(?Page1Image)
  65.        REGION,AT(9,23,136,176),USE(?Page1Zoom)
  66.        BOX,AT(155,23,136,176),USE(?Page2Frame)
  67.        IMAGE,AT(155,23,136,176),USE(?Page2Image)
  68.        REGION,AT(155,23,136,176),USE(?Page2Zoom)
  69.        BOX,AT(84,18,136,176),USE(?SingleFrame)
  70.        IMAGE,AT(84,18,136,176),USE(?SingleImage)
  71.        REGION,AT(84,18,136,176),USE(?SingleZoom)
  72.        IMAGE,AT(0,0),USE(?SingleZoomImage),FULL,HVSCROLL
  73.      END
  74.  
  75. JumpWindow WINDOW('Jump to a Report Page'),AT(,,150,18),FONT('MS Sans Serif',8,,),CENTER,STATUS,GRAY
  76.        PROMPT('Page:'),AT(4,4,,),USE(?JumpPrompt)
  77.        SPIN(@n5),AT(27,4,32,10),USE(Preview:Jump),RANGE(1,100),STEP(1),MSG('Select a page of the report')
  78.        BUTTON('OK'),AT(74,4,32,10),USE(?OKButton),DEFAULT,MSG('Jump to the selected page')
  79.        BUTTON('Cancel'),AT(111,4,32,10),USE(?CancelButton),MSG('Cancel this selection')
  80.      END
  81.  
  82. !--------------------TINMAN SOFTWARE CORP.----------------------------------
  83. PrintWindow WINDOW('Print Options'),AT(,,108,105),FONT('System',8,,FONT:bold),CENTER,SYSTEM,GRAY
  84.        STRING('To:'),AT(61,63),FONT('Arial',8,,FONT:regular)
  85.        SPIN(@N_3B),AT(70,64,20,8),FONT('Arial',8,,FONT:regular),MSG('Select Ending Page'),TIP('Select Ending Page'), |
  86.            USE(PAGETO),RANGE(1,999),STEP(1)
  87.        STRING('From:'),AT(22,63),FONT('Arial',8,,FONT:regular)
  88.        SPIN(@N_3B),AT(36,64,20,8),FONT('Arial',8,,FONT:regular),MSG('Select Starting Page'),TIP('Select Starting Page'), |
  89.            USE(PAGEFROM),RANGE(1,999),STEP(1)
  90.        OPTION('Print Ranges'),AT(5,11,96,65),FONT('Arial',9,,FONT:regular),USE(OptionPrint),BOXED
  91.          RADIO('All Pages'),AT(10,21),MSG('Print All Pages'),TIP('Print All Pages'),VALUE('1')
  92.          RADIO('Marked Pages Only'),AT(10,31),MSG('Print Marked Pages Only'),TIP('Print Mark Pages Only'), |
  93.              USE(?OptionPrint:Marked),DISABLE,VALUE('2')
  94.          RADIO('Unmarked Pages Only'),AT(10,41),MSG('Print Unmarked Pages Only'),TIP('Print Unmarked Pages Only'), |
  95.              USE(?OptionPrint:UnMarked),DISABLE,VALUE('3')
  96.          RADIO('Range of Pages'),AT(10,51),MSG('Print A Range Of Pages'),TIP('Print A Range Of Pages'), |
  97.              VALUE('4')
  98.        END
  99.        BUTTON('OK'),AT(16,85,32,10),FONT('Arial',8,,FONT:regular),USE(?PrintOK),DEFAULT
  100.        BUTTON('Cancel'),AT(61,85,32,10),FONT('Arial',8,,FONT:regular),USE(?PrintCancel)
  101.      END
  102. !--------------------TINMAN SOFTWARE CORP.----------------------------------
  103.  
  104.    CODE
  105.  
  106.    LOCALRESPONSE = RequestCancelled
  107. !--------------------TINMAN SOFTWARE CORP.----------------------------------
  108.    MQ:Mark = 0
  109.    LOOP Records(PrintPreviewQueue) Times
  110.      ADD(MarkQueue)
  111.    .
  112. !--------------------TINMAN SOFTWARE CORP.----------------------------------
  113.    OPEN(PreviewWindow)
  114.    INIRestoreWindow('ReportViewerWindow','TINTOOLS.INI')
  115.    IF ~OMITTED(2) THEN
  116.      PreviewWindow{Prop:Text} = CLIP(TITLEIN)
  117.    .
  118.    RightPageNumber = 1
  119.    Preview:OpMode = Preview:Op:Normal
  120.    Preview:Zoomed = False
  121.    Preview:Facing = False
  122.    IF RECORDS(PrintPreviewQueue) = 1
  123.      DISABLE(?PreviewFacing)
  124.    END
  125.    DO LoadPages
  126.    ACCEPT
  127.      CASE EVENT()
  128.      OF Event:Accepted
  129.        CASE FIELD()
  130.        OF ?SingleZoom
  131.        OROF ?Page2Zoom
  132.          POST(Event:Accepted,?PreviewZoom)
  133.        OF ?Page1Zoom
  134.          RightPagenumber = LeftPageNumber
  135.          POST(Event:Accepted,?PreviewZoom)
  136.        OF ?PreviewCancel
  137.          POST(Event:CloseWindow)
  138.        OF ?PreviewPrint
  139. !--------------------TINMAN SOFTWARE CORP.----------------------------------
  140.          LOCALRESPONSE = RequestCompleted
  141.          DO PRINTREPORT
  142.          IF LOCALRESPONSE = REQUESTCANCELLED THEN
  143.            CYCLE
  144.          ELSE
  145.            POST(Event:CloseWindow)
  146.          .
  147. !--------------------TINMAN SOFTWARE CORP.----------------------------------
  148.        OF ?PreviewPreviousPage
  149.          IF Preview:OpMode = Preview:Op:Facing
  150.            RightPageNumber -= 2
  151.          ELSE
  152.            RightPageNumber -= 1
  153.          END
  154.          DO LoadPages
  155.        OF ?PreviewNextPage
  156.          IF Preview:OpMode = Preview:Op:Facing
  157.            RightPageNumber += 2
  158.          ELSE
  159.            RightPageNumber += 1
  160.          END
  161.          DO LoadPages
  162. !--------------------TINMAN SOFTWARE CORP.----------------------------------
  163.        OF ?PreviewTop
  164.          RightPageNumber = 1
  165.          DO LoadPages
  166.        OF ?PreviewBottom
  167.          RightPageNumber = RECORDS(PrintPreviewQueue)
  168.          DO LoadPages
  169.        OF ?Mark
  170.          IF Preview:OpMode = Preview:Op:Normal OR Preview:OpMode = Preview:OP:Zoom THEN
  171.            DO MarkPage
  172.          .
  173.        OF ?PREVIEWDELETE
  174.          IF Preview:OpMode = Preview:Op:Normal OR Preview:OpMode = Preview:OP:Zoom THEN
  175.            DO DeletePage
  176.          .
  177. !--------------------TINMAN SOFTWARE C